home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / MYCENTR.M3 < prev    next >
Text File  |  1996-04-01  |  4KB  |  141 lines
  1. name Mycenter
  2.  
  3. % 00
  4. / 00
  5. O >4
  6. N >4
  7. G >2
  8. g >2 G
  9. H >2
  10. D >2
  11. X ->3.>4
  12. Y ->3.>4
  13. Z ->3.>4
  14. I ->3.>4
  15. J ->3.>4
  16. K ->3.>4
  17. Q ->3.>4
  18. R ->3.>4
  19. P >40
  20. F >3.>2
  21. T >2
  22. S >4
  23. M >2
  24.  
  25. ModalLetters X Y Z F R                # List of letters that are modal    
  26.  
  27. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal    
  28.  
  29. Sequence#s N 0 10 10                  # Char, freq, incr & start          
  30. First#? N                             # Y or N  'Output 1st sequence no.  
  31. Last#? N                              # Y or N  'Output last sequence no. 
  32.  
  33. HCode X                               # X or X U  'Horizontal char.       
  34. VCode Y                               # Y or Y V  'Vertical char.         
  35. Dcode Z                               # Depth char.                       
  36. FeedCode F                            # Feed rate char.                   
  37.  
  38. Comment ( )                           # Begin End comment char.           
  39.  
  40. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  41. Coolant 8 9 7                         # On, Off & Mist m codes            
  42. DComp 41 42 40                        # Left, Right & Cancel m codes      
  43. LComp 43 49                           # On & Off codes                    
  44.  
  45. Feed G1                             # Linear move                       
  46. Rapid G0                            # Rapid positioning word            
  47. Cw G2                               # Circular move clockwise           
  48. Ccw G3                              # Circular move counter clockwise   
  49.  
  50. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  51.  
  52. CtrCode R                             # I J or R or I J K L               
  53. Helical? N
  54.  
  55. Spaces? Y                             # Y or N  'Spaces between words     
  56.  
  57. Incremental? N                        # Y or N  'Inc or abs output        
  58. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  59. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  60.  
  61. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  62.  
  63. Drill                                 # Drilling canned/manual cycle      
  64. G81 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  65. end cancel
  66.  
  67. Peck                                  # Pecking canned/manual cycle       
  68. G83 X[H] Y[V] Z[D] Q[VBite] R[Vclear] F[FRate]
  69. end cancel
  70.  
  71. Tap                                   # Tapping canned/manual cycle       
  72. G84 X[H] Y[V] Z[D] R[Vclear] F[Frate] Q[VBite]
  73. end cancel
  74.  
  75. LTap                                  # Left handed tapping cycle         
  76. G74 X[H] Y[V] Z[D] R[Vclear] F[Frate] Q[VBite]
  77. end cancel
  78.  
  79. Ream                                  # Reaming canned/manual cycle       
  80. G85 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  81. end cancel
  82.  
  83. Bore                                  # Boring canned/manual cycle        
  84. G86 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  85. end cancel
  86.  
  87. Back                                  # Back boring canned/manual cycle   
  88. G87 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  89. end cancel
  90.  
  91. Cancel                                # Cancel a canned/manual cycle      
  92. G80
  93. end
  94.  
  95. Index X                               # Index the rotary table            
  96. G0 G28 g91 Z0
  97. G0 G90 G[Work] X[H] Y[V]
  98. G43 H[Lcomp] Z[D]
  99. End
  100.  
  101. StartCode                             # Start of the program              
  102. %0
  103. O[Program#]
  104. G90 G80 G40 G17
  105. End
  106.  
  107. 1stToolChange                         # First tool change                 
  108. T[Tool] M6
  109. S[Speed] M[Direct]
  110. G0 G90 G[Work] X[H] Y[V]
  111. G43 H[Lcomp] Z[D]
  112. M[Cool]
  113. End
  114.  
  115. Infeed                                # Enable cutter comp                
  116. G[Side] D[DComp] X[H] Y[V] F[FRate]
  117. end
  118.  
  119. Outfeed                               # Disable cutter comp               
  120. G1 G40 X[H] Y[V]
  121. end
  122.  
  123. ToolChange                            # Secondary tool changes            
  124. N[Block] T[Tool] M6
  125. S[Speed] M[Direct]
  126. T[NextTool]
  127. G0 G[Work] X[H] Y[V]
  128. G43 Z[D] H[Lcomp]
  129. M[Cool]
  130. End
  131.  
  132. EndCode                               # End of the program                
  133. G28 g91 Z0
  134. G28 Y0
  135. M6 T[Tool1]
  136. M30
  137. %0
  138. End
  139.  
  140.  
  141.